∂16-Apr-81  0012	RPG	PPSAV'd text
NIL)
       (DEFUN |CXR SETF-X-ACCESS| (NIL INDEX FROB) 
	      (LIST 'CXR INDEX FROB))
       (DEFUN |CXR SETF-X-INVERT| (NIL VALUE INDEX FROB) 
	      (LIST 'RPLACX INDEX FROB VALUE))
       (DEFUN (CXR SETF-X) (G0011) 
	      ((LAMBDA (G0012 FROB INDEX) 
	       (SETQ G0012 (CDR G0012))
	       (SETQ INDEX (CAR G0012))
	       (SETQ FROB (CAR (CDR G0012)))
	       (SETF-STRUCT '|CXR SETF-X-ACCESS|
		    '|CXR SETF-X-INVERT|
		    'NIL
		    (LIST INDEX FROB)))
	       G0011
	       NIL
	       NIL)))

← ↑C
↑C

.R PPSAV
∂06-May-81  1900	RPG	PPSAV'd text

Bye
↑C
.
.;; Message from 100   on TTY77 (at TV-120)  1859: ME    
ERAID[1,me] has ⊗Xinterrupt <char><cr> and line editor ⊗= cmd.

.
.et∂pmf
αe
Bye
↑C
.r ppav
? PPAV.DMP not found
↑C
.r ppsav
et